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STRSRIGHT 1S-se 1984 01:48:25 AX-11 Bliss-32 V4.0-74 P 1 
12-Sep-19 4 er BE YONBRTL SREISTARIGHT .03951 = (1) | 
; 1 $0) MODULE STRSRIGHT ( ! Extract a substr on the right | 
; § 008 IDENT = '1-013" ! File: STRRIGHT.B32 Edit: RKR1013 
= 005 d= | 
: § BEGIN | 
: 4 443 : leueeuaeencenerentencnenrensecereererteereertretentnntneennetnnennesnntnnttns 
o :* 
$010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
oe 0011 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ’ 
3 \§ Bot¢ } . ALL RIGHTS RESERVED. * 
o° . ® 
s % Bete 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
cia a 015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; Bote 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 17 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 iy oid : ” TRANSFERRED. : 
: 21 0031 1 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: $§ 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; t 8087 ! ? CORPORATION. . 
; 5 $058 1 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; $ 0037 : is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
; 28 0028 1 is » 
3 ; it 34 ! s SONSESSRRESHRESERSEReTENsEERENERETENNseNReRHERHeoNNSaeTeNsoENeENENESeReES 
co i 0031 1— 
3 ; O08¢ 1 !¢¢ 
3 Z ORR : : FACILITY: String support Library 
; 3 0035 1 | ABSTRACT: 
; $ 0037 1! This module extracts a substrin eccording to the — 
s 8 0038 1! BASIC=-PLUS-2 syntax. It finds the substr ng of a main string 
.. 0039 1! starting at the character position specified by the input 
; 40 0040 1! parameter and continues through the last character of the 
; re seg ! string. This substring is copied to the destination string. 
: és Does | ENVIRONMENT: User mode, AST level or not or mixed 
; FA Go4s } AUTHOR: R. Will, CREATION DATE: 19-Feb-79 | 
; 7 0047 i MODIFIED BY: | 
: 49 0049 1 i oR, Will, 19-Feb-79: VERSION 01 
; 30 050 1 | 1-001 = Griginal 
3 1 Boas +! I- § = Change Linkage and call to COPY routine. 15-mar-79 
; 26 O36 1 ! 1-005 - Change stein Linkages to start with STR$. JBS 04-JUN-1979 | 
a 531! 1-004 = Change call to STRS$COPY. JBS 16-JUL-1979 
; 54 1! 1- - Define an aux yeriable to improve the code generated. 
: 33 33 : 1-007 eth ey STR$, string cleanu RW 31 79 | 
F 5 0087 1/ 17908 = Change to new interlock aeires. nt Ob NOV-1979 | 


vat W$$Se-198e QUA: Wad OMeSeHRat O24. a0? 


7 
1! 1- = Use string interlocks from CALL entr Rw -Nov-79 
; 3 2 ii 1-33 = String speedup, remove edit 9. Be yan 41980 | 
60 1 § 1-011 = Enhance to rece nize odd tonal slonete of Soccer intors by 
; «(OF ii ysing SSTRSGET_LEN_ADDR = extract length and address of | 
6¢ § i st data byte from descriptor. Remove all string interlocking 
2 1 i co 3 RK “APR- 
; 666 A 1! i - Speed ues code. RKR 7-0CT-1981. | 
; 65 5 1! 1-013 = Use STRSCOPY_R_RB for coey operation. Use $STRSSIGNAL_FATAL 
; @& 0066 1} instead of SSTRSCHECK_STATUS. RKR 18-NOV-1981. 
67 0067 1 i- 
68 0068 1 
69 0069 1 !<BLF/PAGE> 
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un 


&3 


3 - LIBRTL.SRC STARIG T.B32; (2) 
oR 70 1! 
; if 71 1°! SWITCHES: 
a: ioe 
: 75 74 1 SWITCHES ADDRESSING MODE | 
3 f Le : EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
eS 77 1! 
: re 78 1 | LINKAGES: 
; F +P &, 
3 ¢ 81 REQUIRE 'RTLIN:STRLNK'; ! Use require file with string Linkage 
: BG 8S 1! 
; «685 68 1 | TABLE OF CONTENTS: 
3; 8 1! 
oF 8 0 1 
: 88 71 1 FORWARD ROUTINE 
3 89 8 Le: 1 STRSR ! Find the RIGHT of a str, CALL 
$ ey 8 7 : STRSRIGHT “RB: STRSJSB_RIGHT; ! Find the RIGHT of a str, JS 
: 9 0275 1! 
; 3 0276 1 ' INCLUDE FILES: 
Boren 
: %6 9 2 REQUIRE ‘RTLIN:RTLPSECT'; ! Declare PSECTs code 
: 98 0375 REQUIRE "RTLIN:STRMACROS'; ! use string macros to code 
; 100 3 LIBRARY "RTLSTARLE’; ! STARLET Library for macros and symbol 
: 10 1294 1! 
; 198 1295 1 | MACROS: NONE 
> 104 1 3% 1 
: ie 1598 1 | 
; 107 99 : EQUATED SYMBOLS: NONE 
: 1% ey 
$111 1 68 1 | PSECT DECLARATIONS 
; 118 1304 1! 
> 11 1305 1 
+ 114 1 06 1 DECLARE_PSECTS (STR); 
ety: 1308 |! 
: We 1 $8 1 | OWN STORAGE: NONE 
: 118 1310 1: 
: 138 1312 43 
+ 121 1 8 1 ' EXTERNAL REFERENCES: 
2 ee 
: 124 1 16 1 EXTERNAL ROU ROUTINE 
; 125 1317 1 ' signal fatal errors 
3 : $ } \8 ' STRSCOPY. R_RB : STRSJSB_COPY_R ; ! Routine to do the copy 
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GLOBAL ROUTINE STRSRIGHT ( Extract a substr on the right 


DEST_DESC, ! Pointer to destination descriptor 
SRC_BESC, ! Pointer to source descriptor 
CHAR_POS ! First character to be included 

) sz 


+e 
FUNCTIONAL DESCRIPTION: 


This routine qzyracts the characters Starting at the 

character position in the source string specified by the input 
parameter and continuing through the last character of the 
source string and copies that sete tas 

to the destination string (by JSB to STRSCOPY_R_RB) according 
to the syntax of the class of the destination string. 

If the input character position is < 2 then the entire source 
pirven is copied. If the input character position is > the 


length of the source string, then the destination oereng becomes 
a = string. It computes the RIGHT by JSBing to the JSB entry 
point. 

FORMAL PARAMETERS: 
DEST _DESC.wt.dx pointer to destination string descriptor 
SRC_BESC.rt.dx pointer to source string descriptor 
CHAR_POS.rl.r character position in source to start 


substring 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
same as STRSRIGHT_RB 
SIDE EFFECTS: 
same as STRSRIGHT_RB since it JSBs to that routine. 


BEGIN 


Pp 
SRC_DESC : REF SSTRSDE 
DEST_DESC : REF $STRSDE 


RETURN STRSRIGHT_RB (DEST_D 
SRC _DBE 
 CRAR 


SCRIPTOR, 
SCRIPTOR; 
Esc (£0,0,0,0]. 
Fart 
“POS): 


4) 
= 


K 5 
1erSep-1986 12:60:15 UCTantussnesstanlont 6 
; 


eager 


; 189 


3; Routine Size: 


1380 1 


14 bytes, 


END; 


vw 
on 


Routine Base: 


-STRSCODE + 0000 


ihe 


3Be 92:25:45 Hants sae Sstanv ent 038, 


!End of STRSRIGHT 


BSSTOP, STRSCOPY_R_RS 
RS_NORMAL, STR$_TLCSTRPOS 


_STRSCODE,NOWRT, SHR, PIC,2 


Diente all Save R2,R3,R4,R5,R6,R7,R8 
@CHAR_POS, Re 
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: 13) ! 1 ! GLOBAL ROUTINE STRSRIGHT 
; 138 1 : 1 DEST_DESC, 

: 194 1384 #1 SRC_BESC, 

; 195 1385 1 CHAR_POS 

; 196 1 § 1 

os 

: 199 i Hy i TS 

: 89 : + : } FUNCTIONAL DESCRIPTION 
: 20 1392 1 This routine ex 
5 88 1 38 1! character aastet 
5 04 1394 1! parameter (where 
3; 205 1395 1! position 1) and 
; 206 1 36 1! source string an 
3 gor 1397 1! string (by JSB t 
; 208 1398 1! to the syntax of 
; 209 1399 1! If the input cha 
; 210 1400 1! string is copied 
3 evi 1401 1! length of the so 
: sig 1008 : becomes a null s 
; ei4 1404 FORMAL PARAMETERS: 

: 216 1406 1! DEST_DESC.wt.dx 
3s ev 1407 1! SRC_BESC.rt.dx 

s 218 1408 1! CHAR_POS.rl.v 

2 eae 

: $5 1411 1 | IMPLICIT INPUTS: 

; 3ee aig 1! 

: 38% lee yi a 

> 225 1415 1! IMPLICIT OUTPUTS: 

: $58 12\8 1! 

: 356 1218 i _— 

3 3e9 1419 COMPLETION CODES: 

: 331 1254 1 i SS$_NORMAL 

; 32 14 § 1 3 STRS_ILLSTRPOS 

3 235 14 3 STRS_ILLSTRSPE 

; 34 1424 1! STRS_NEGSTRLEN 

5 5 1425 : STRS_TRU 

: 3$ 1 5 1} 

: $ * 3 : SIDE EFFECTS: 

: 260 1430 1! May signal: 

; 41 1431 1! STRS_FATINTE 
3 *g 1636 1! STRS_ILLSTRC 
> 26 148 1 i STRS_INSVIRM 
: 2644 1434 1! 

: 45 1435 1! 

: 46 14 § 1 !e- 

3; 247 14 1 


mw 5 
16-Sep-1984 748: AX-11 Blis 
1 =3007} Re 94:48:42 LIBRTL. SRO} 
! Extract a substr on the right 
! Pointer to destination Gescriptor 
! Pointer to source descriptor 
! First character to be included 


) : STRSJSB_RIGHT = 


_RB ( 


ag the characters Starving at the 
on in the source string specified by the input 
the first character in the string is at 
es ow the last character of the 
d copies that su string to the destination 
o STRSSCOPY_R_R8) according 
the class of the destination string. 
racter position is < 2 then the entire source 
- If the input character position is > the 
ro string, then the destination string 
ring. 


pointer to destination string descriptor 
pointer to source string descriptor 
character position in src to start 
substring 


Success 

Character position reference outside of string 
End pos < start pos, or length too long 
Negative length supel ted. 0 used : 
Truncation occured in copying to destination 
(Warning) 


RR Fatal internal error : 

LA th egat (or unsupported) string class 

EM Insufficient virtual memory for 
reallocation of dynamic string 
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BEGIN 
LOCAL 
IN_LEN ! Length of input string 
IN-ADDR i address of 1st data byte of input str 
RETURN STATUS, i keep the status of this routine 
OPY status returned from STRSCOPY 


C STATUS, 
LENGTH; ! Length to be copied 


P 
SRC_DESC : REF $STRSDESCRIPTOR, 
DEST_DESC : REF SSTRSDESCRIPTOR: 

' 


RETURN_STATUS = 1 ; Assume success to follow 


+ 
compute length and address of Ist data byte of input string 


SSTRSGET_LEN_ADDR ( SRC_DESC, IN_LEN, IN_ADDR) ; 


+ 
! Compute the correct substring and call the COPY routine usted 

! the re length and pointer. LENGTH is length to be skipped is 
! the actual s af ey | position (after testing for errors) - 1 

! (which must be >= 0 and <= src len) 


LENGTH = 
BEGIN 
IF .IN_LEN LSS .CHAR_POS - 1 
THEN 
BEGIN 
RETURN STATUS = STRS_ILLSTRPOS; ! input start to big 
- IN_LER ' use srclen and 


! remember error 
END 
ELSE .CHAR_POS = 1 
END; 


IF .LENGTH LSS 0 THEN 
BEGIN 


LENGTH = 0; ! input length is 
! negative 
RETURN_STATUS = STRS_ILLSTRPOS; use 0 and remember 
! error 
END; 


1+ 
! copy to destination descriptor for srclen - (startpos - 1) starting 
srcptr + startpos - 1 
COPY_STATUS = STRSCOPY_R_R& ( .DEST_DESC, 
oi N- » LENGTH, 

CHSPLUS (.IN_ADDR, .LENGTH) ); 
-COPY_ STATUS NEQ SS$_NORMAL 
N RETORN_STATUS = .COPY_STATUS; ! copy truncated, return 


| 


6 

TRSRIGHT 1bese -1984 01:48: AX-11 Bliss-32 V4.0-74 
abt 1278 08- 1 3b 03:38 ¢2 tt IBRTL. SRessTaRt Gis 3551 
s 305 1495 ! fruncete 
; 5 1439 ! instead of previous status 
: 308 1498 SSTRSSIGNAL FATAL (RETURN, STATUS) ; ! signal fatal errors 
H 09 1499 RETURN -RETORN_ STATUS; 
3 10 1500 END; 'End of STRSRIGHT 


.EXTRN STRSANALYZE_SDESC_R1 


54 50 DO 00000 STRSRIGHT_RB:: 
MOVL RO, R4 
01 DD 00003 PUSHL #i 
02 03 Al 91 00005 CMPB © 3(SRC_DESC), #2 
09 #41A 90009 BGTRU 1$ 
50 61 3C 00008 MOVZWL (SRC_DESC), IN_LEN 
53 04 Al dO S900E OVL 4 (SRT_DESCS, IN_ADDR 
0C 11 0001 BRB 2$ 
50 51 DO 00014 1$: MOVL SRC_DESC, RO 
000000006 00 16 00017 JSB STRSANALYZE SDESC_R1 
53 51 DO 0001D MOVL R1, R3 
28 D7 90020 2$: DECL R2 
52 50 D1 000 Q CMPL {N. LEN, R2 
0c 18 0002 BGEQ $~ 
6E 000000006 8F DO 00027 MOVL #STRS ILLSTRPOS, RETURN_STATUS 
51 50 00 000¢E MOVL N_LEN, 
03 11 00031 BRB 
51 52 DO 00033 3$: MOVL Re. LENGTH 
09 18 00036 4$: BGEQ 5$ 
51 D4 00038 CLRL LENGTH 
gf 000000006 8F DO 0003A MOVL PS TRS ILLSTRPOS, RETURN_STATUS 
52 5 51 C1 00041 5$ ADDL LENGTA, IN_ , Re 
51 50 51 ¢3 00045 SUBL LEN IN-LEN, 
50 54 D0 00049 VL _——~DEST_DESC 
000000006 00 16 0004C JSB OFRSCOPY R_RB 
01 50 D1 BOONE CMPL COPY_STATUS, #1 
03 13 0005 BEQL 6h 
6E 50 p0 00057 MOVL COPY STATUS RETURN_STATUS 
10 6E £8 OO05A 6$: BLBS § RETURN_STATUS, 7 
04 a 03 00 €D 9005p CMPZV #0, #3, SRETURN.. STATUS, #4 
09 12 00062 BNEQ 
6E DD 00064 PUSHL RETURN STATUS 
000000006 99 01 FB 90066 CALLS #1, L T 
0 E DO 0006D 7$: MOVL § RETURN_STATUS, RO 
05 00070 RSB 
; Routine Size: 113 bytes, Routine Base: _STRSCODE + OOOE 
ND 'End of module 
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: me: : 
; Elapsed Time: 9: 18.6 


: 15585 
; Lexenes/CPU-Min; 33730 
: pee | Used: 82 pages 
; Compilation Complete 


, 

STRSRIGHT 1$-sep=1984 01:48:25 VAX-11 Bliss-32 V4.0-742 Page 10 

1-013 14-Sep-1984 12:40:15 CLIBRTL.SRCISTRRIGHT.B32;1 a 
| 

; PSECT SUMMARY | 

$ Name Bytes Attributes | 

;  STRSCODE 127 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

: Library Statistics 

: eocceee= Symbols oo--o--- Pages Processing 

; File Total Loaded Percent Mapped Time 

; _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 7 0 581 00:00.8 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:STRRIGHT/OBJ=OBJ$:STRRIGHT MSRC$:STRRIGHT/UPDATE=(ENH$: STRRIGHT) 

; Size: 127 code + 0 data bytes 
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